#!/usr/bin/perl
my $dir = 'tempdir/';
if (! -d $dir) 
{
    mkdir $dir || die;
}
my $file = $dir . @ARGV[0];
open (my $fh, ">", $file) || die;
while (<>)
{
    my $l = $_;
    chomp $l;
    if($l =~ /font\-size\s*:\s*(1[0-9])/)
    {
        $n = $1 - 2;
        $l =~ s/(font\-size\s*:\s*)1[0-9]/$1$n/;
    }
    print $fh "$l\n";
}
close $fh;

